home *** CD-ROM | disk | FTP | other *** search
/ Magazyn WWW 1999 April / cd24-www.iso / prog / mac / snak / snak.hqx / Snak 2.0.2 / Scripts / pp-silly.irc < prev    next >
Text File  |  1996-03-22  |  23KB  |  809 lines
  1. # ########################################################################## #
  2. #                      PurePak - The sequel to TextBox                       #
  3. #                          A -+ TEXT +- production                           #
  4. # ########################################################################## #
  5. # Author: Crypt Keeper [ckeeper@axiom.access.one.net] (CKeeper on IRC)
  6. # Version 2.07
  7. #
  8. # This script requires at least ircII2.2.9 (Unix) or a fully ircII compatible
  9. # client.  It has only been tested under Unix with ircII2.2.9 and ircII2.8.
  10. #
  11. # If you edit this file, you must edit it with a Unix text editor or use
  12. # utilities like dos2unix/unix2dos to convert it to DOS to edit and then
  13. # back to Unix.  If it is edited in a DOS text editor it will be corrupted.
  14. #
  15. # PurePak version 2.07 IRC script
  16. # Copyright (C) 1995
  17. #
  18. # This program is free software; you can redistribute it and/or modify
  19. # it under the terms of the GNU General Public License as published by
  20. # the Free Software Foundation; either version 1, or (at your option)
  21. # any later version.
  22. #
  23. # This program is distributed in the hope that it will be useful,
  24. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  25. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26. # GNU General Public License for more details.
  27. #
  28. # You should have received a copy of the GNU General Public License
  29. # along with this program; if not, write to the Free Software
  30. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  31. # ########################################################################## #
  32.  
  33. # Useless, annoying things module
  34. @ PP.SILLY = 1
  35.  
  36. # ----------------------------------------------------------------------------
  37. # ASCII art: the surest way to get kicked!
  38. # ----------------------------------------------------------------------------
  39.  
  40. alias silly.art.dhead {
  41.     sendto $0    /~o~\\;/sendto $0   /     \\   YOU DICKHEAD!!!
  42.     sendto $0  /       \\;/sendto $0 (((((O)))))
  43.     sendto $0   |     |
  44. }
  45. alias silly.art.humpindogs {
  46.     sendto $0      o__/- \\;/sendto $0      \\/__   \\__  
  47.     sendto $0  \/ __   //\\   \\    / 
  48.     sendto $0  o_/o \\-//--\\   \\_/   
  49.     sendto $0 ~\\/___  ____=o  |   
  50.     sendto $0     _/_/    \\/_/      
  51.     sendto $0        /\\;/sendto $0    ---------------- 
  52. }
  53. alias silly.art.homer {
  54.     sendto $0    _____
  55.     sendto $0   /     \\;/sendto $0 \\/\\/     |
  56.     sendto $0  |  (o)(o)
  57.     sendto $0  C   .---_)
  58.     sendto $0   | |.___|  d0h!!!!
  59.     sendto $0   |  \\__/
  60.     sendto $0   /_____\\;/sendto $0  /____/\_\\  
  61. }
  62. alias silly.art.bart {
  63.     sendto $0   ||/|/|/|
  64.     sendto $0   |      |
  65.     sendto $0   |  (o)(o)
  66.     sendto $0   C       )
  67.     sendto $0   |   /__|  Dont have a cow man!
  68.     sendto $0   |    /
  69.     sendto $0  /     |
  70. }
  71. alias silly.art.crapcow2 {
  72.     sendto $0         |     (oo)
  73.     sendto $0   o=o=o=|------\\/
  74.     sendto $0         |      |
  75.     sendto $0  oo     ||----||
  76.     sendto $0 oooo    ^^    ^^
  77. }
  78. alias silly.art.neener {
  79.     sendto $0         \\|/ ____ \\|/
  80.     sendto $0         ~@-/ oO \\-@~
  81.     sendto $0         /_( \__/ )_\\;/sendto $0            \\__U_/
  82.     sendto $0    Neener, neener, neener.
  83. }
  84. alias silly.art.lame {
  85.     sendto $0 :'##::::::::::'###::::'##::::'##:'########:
  86.     sendto $0 : ##:::::::::'## ##::: ###::'###: ##.....::
  87.     sendto $0 : ##::::::::'##:. ##:: ####'####: ##:::::::
  88.     sendto $0 : ##:::::::'##:::. ##: ## ### ##: ######:::
  89.     sendto $0 : ##::::::: #########: ##. #: ##: ##...::::
  90.     sendto $0 : ##::::::: ##.... ##: ##:.:: ##: ##:::::::
  91.     sendto $0 : ########: ##:::: ##: ##:::: ##: ########:
  92.     sendto $0 ::........::..:::::..::..:::::..::........:
  93. }
  94. alias silly.art.spam {
  95.     sendto $0 ,dP""8a "888888b,  d8b    "888b  ,888" EaT iT
  96.     sendto $0 88b   "  888  d88 dPY8b    88Y8b,8888
  97.     sendto $0 `"Y8888a 888ad8P'dPaaY8b   88 Y88P888  TaSTe iT
  98.     sendto $0 a,   Y88 888    dP    Y8b  88  YP 888
  99.     sendto $0 `"8ad8P'a888a  a88a *a888aa88a   a888a KiSS iT
  100. }
  101. alias silly.art.train {
  102.     sendto $0       . . . . o o o o o
  103.     sendto $0              _____      o       _______
  104.     sendto $0     ____====  ]OO|_n_n__][.     |lamer|
  105.     sendto $0    [________]_|__|________)<    |ville|
  106.     sendto $0     oo    oo  'oo OOOO-| oo\\_   ~~~|~~~
  107.     sendto $0 +--+--+--+--+--+--+--+--+-$1-+--+--+--+--+--+
  108. }
  109. alias silly.art.sopbeg {/sendto $0 [SuBLiMiNaL oPS BeG] Hi there every+one!  H+ow's it g+oing?}
  110. alias silly.art.spamcow {
  111.     sendto $0    (__) *SSSSS**PPPPP***AAA***MM***MM*
  112.     sendto $0    /oo\\_*S******P***P**A***A**M*M*M*M*\\;/sendto $0    \\  /~*SSSSS**PPPPP**AAAAA**M**M**M* |
  113.     sendto $0     oo  *****S**P******A***A**M*****M* |
  114.     sendto $0         *SSSSS**P******A***A**M*****M* ^
  115.     sendto $0          | |                       | |
  116.     sendto $0          ^ ^                       ^ ^
  117. }
  118. alias silly.art.bong {
  119.     sendto $0            _____
  120.     sendto $0            | A |   RoaST a BoWL!
  121.     sendto $0            | N |
  122.     sendto $0            | A |
  123.     sendto $0            | U |  \) \);/sendto $0            | J |   \(;/sendto $0            | I | \( \);/sendto $0            | R |  \);/sendto $0            | A | \);/sendto $0            | M |
  124.     sendto $0            | o | U
  125.     sendto $0            |   |//
  126.     sendto $0            |   |/
  127.     sendto $0            |   |
  128.     sendto $0           /|___|\\;/sendto $0           \\_____/
  129. }
  130. alias silly.art.humpincows {
  131.     sendto $0             (___)
  132.     sendto $0             (o o)  <===== $1
  133.     sendto $0       /------\\ /   (__)
  134.     sendto $0      /    ____O    (oo)   <===== $2-
  135.     sendto $0     |   / /----\\----\\/
  136.     sendto $0     /\\oo===|  /    ||
  137.     sendto $0    | ||   *||^-----||
  138.     sendto $0    *  ^^   ^^      ^^
  139. }
  140. alias silly.art.crapcow {
  141.     sendto $0 (__) <== $1
  142.     sendto $0 /oo\\________
  143.     sendto $0 \\  /        \\;/sendto $0  \\/      /   \\;/sendto $0    \\_|___\\_|/.\\;/sendto $0     ||   YY| o '
  144.     sendto $0     ||    || O <== $2
  145.     sendto $0     ^^    ^^
  146. }
  147. alias silly.art.sitonthis {
  148.     sendto $0    n         /
  149.     sendto $0    H     o     o
  150.     sendto $0  nnHnn      [      S1T 0N TH1Z AND R0T4T3!
  151.     sendto $0  VVVVV     ___/
  152. }
  153. alias silly.art.flickoff { 
  154.     sendto $0            _____
  155.     sendto $0            |_ _|
  156.     sendto $0       n    (O O)    n
  157.     sendto $0       H   _|\\_/|_   H
  158.     sendto $0      nHnn/ \\___/ \\nnHn
  159.     sendto $0     <V VV /     \ VV V>
  160.     sendto $0      \\__\\/|     |\\/__/ 
  161. }
  162. alias silly.art.borgcow {
  163.     sendto $0       "We are cow."
  164.     sendto $0  (__)
  165.     sendto $0  /oo\\################
  166.     sendto $0  \\  /################\\;/sendto $0   \\/ ################ |
  167.     sendto $0      ################ |
  168.     sendto $0      ################ |
  169.     sendto $0      ################
  170.     sendto $0       | |        | |
  171.     sendto $0       ^ ^        ^ ^
  172. }
  173. alias silly.art.ops {
  174.     sendto $0     <<<<                 +o+o+o+o+o+ o+o+o+o+o+o+ o+o+o+o+o+o 
  175.     sendto $0    <<<<                  o+o     o+o +o+      o+o +o+         
  176.     sendto $0   <<<<                   +o+     +o+ o+o      +o+ o+o         
  177.     sendto $0  <<<<=================   o+o     o+o +o+      o+o +o+o+o+o+o+ 
  178.     sendto $0  <<<<=================   +o+     +o+ o+o+o+o+o+o+ o+o+o+o+o+o 
  179.     sendto $0   <<<<                   o+o     o+o +o+                  +o+ 
  180.     sendto $0    <<<<                  +o+     +o+ o+o                  o+o 
  181.     sendto $0     <<<<                 o+o+o+o+o+o +o+          +o+o+o+o+o+ 
  182. }
  183. alias silly.art.deadcat {
  184.     sendto $0               /\\;/sendto $0              /  \\_______/\\/\\;/sendto $0             /               \\;/sendto $0             |_  -X     XX _ /
  185.     sendto $0             \\ ~-_  oo  _-~  |
  186.     sendto $0             -\\--- ____ -----/
  187.     sendto $0               \\-~   \\_\\ ~-_/
  188.     sendto $0             -~ ~~\\       / ~
  189.     sendto $0                   !WOEM
  190. }
  191. alias silly.art.cat {
  192.     sendto $0  _ __/|
  193.     sendto $0  \\'X.X'
  194.     sendto $0  =(___)= Meow!
  195.     sendto $0      U
  196. }
  197. alias silly.art.w00p {
  198.     sendto $0                      ____  ____
  199.     sendto $0            _      __/ __ \\/ __ \\____
  200.     sendto $0           | | /| / / / / / / / / __ \\;/sendto $0           | |/ |/ / /_/ / /_/ / /_/ /
  201.     sendto $0           |__/|__/\\____/\\____/ .___/
  202.     sendto $0                             /_/
  203. }
  204. alias ascii {
  205.     if ([$0])
  206.     {
  207.         if (match($0 SOPBEG SPAMCOW BONG SITONTHIS BORGCOW OPS DEADCAT CAT W00P NEENER LAME SPAM DHEAD HUMPINDOGS HOMER BART CRAPCOW2))
  208.         {
  209.             if ([$1]) {/silly.art.$0 $1} {/silly.art.$0 $T}
  210.         }
  211.         {
  212.             if (match($0 TRAIN HUMPINCOWS CRAPCOW))
  213.             {
  214.                 if ([$0] == [TRAIN])
  215.                 {
  216.                     if ([$2]) {/silly.art.train $2 $1}
  217.                     {
  218.                         if ([$1]) {/silly.art.train $1} {/silly.art.train $T}
  219.                     }
  220.                 }
  221.                 {
  222.                     if ([$3]) {/silly.art.$0 $3 $1 $2}
  223.                     {
  224.                         if ([$2]) {/silly.art.$0 $T $1 $2} {/echo *** You need two nicks for the $0}
  225.                     }
  226.                 }
  227.             } {/echo *** No such ascii art: $0}
  228.         }
  229.     }
  230.     {
  231.         echo *** /ascii <name of ascii art> [<any other parameters>] [<nick/channel>]
  232.         echo *** Available ascii art:
  233.         echo ***   train <nick> - Train to lamerville running over <nick>
  234.         echo ***   sopbeg - "Subliminal ops beg"
  235.         echo ***   spamcow - Where spam comes from
  236.         echo ***   bong - Roast a bowl!
  237.         echo ***   humpincows [<who's on top>] [<who's on bottom>] - Humping cows
  238.         echo ***   crapcow [<who's the cow>] [<who's the crap>] - Crapping cow
  239.         echo ***   sitonthis - The finger with "Sit on this and rotate!"
  240.         echo ***   borgcow - "We are cow."
  241.         echo ***   ops - Huge sign begging for ops
  242.         echo ***   deadcat - An ex-cat
  243.         echo ***   cat - A living cat
  244.         echo ***   w00p - Big "w00p" sign
  245.         echo ***   spam - Big SPAM graphic
  246.         echo ***   neener - "Neener Neener Neener!"
  247.         echo ***   lame - Big "lame" sign
  248.         echo ***   dhead - You dickhead!
  249.         echo ***   humpindogs - Like it says
  250.         echo ***   homer - Homer Simpson
  251.         echo ***   bart - Bart Simpson
  252.         echo ***   crapcow2 - Another crapping cow
  253.     }
  254. }
  255.  
  256. # ----------------------------------------------------------------------------
  257. # Big text writer
  258. # ----------------------------------------------------------------------------
  259.  
  260. @ SILLY.BIG.1.A = [ /// ]
  261. @ SILLY.BIG.2.A = [/   /]
  262. @ SILLY.BIG.3.A = [/////]
  263. @ SILLY.BIG.4.A = [/   /]
  264. @ SILLY.BIG.5.A = [/   /]
  265.  
  266. @ SILLY.BIG.1.B = [//// ]
  267. @ SILLY.BIG.2.B = [/   /]
  268. @ SILLY.BIG.3.B = [//// ]
  269. @ SILLY.BIG.4.B = [/   /]
  270. @ SILLY.BIG.5.B = [//// ]
  271.  
  272. @ SILLY.BIG.1.C = [/////]
  273. @ SILLY.BIG.2.C = [/    ]
  274. @ SILLY.BIG.3.C = [/    ]
  275. @ SILLY.BIG.4.C = [/    ]
  276. @ SILLY.BIG.5.C = [/////]
  277.  
  278. @ SILLY.BIG.1.D = [//// ]
  279. @ SILLY.BIG.2.D = [/   /]
  280. @ SILLY.BIG.3.D = [/   /]
  281. @ SILLY.BIG.4.D = [/   /]
  282. @ SILLY.BIG.5.D = [//// ]
  283.  
  284. @ SILLY.BIG.1.E = [/////]
  285. @ SILLY.BIG.2.E = [/    ]
  286. @ SILLY.BIG.3.E = [///  ]
  287. @ SILLY.BIG.4.E = [/    ]
  288. @ SILLY.BIG.5.E = [/////]
  289.  
  290. @ SILLY.BIG.1.F = [/////]
  291. @ SILLY.BIG.2.F = [/    ]
  292. @ SILLY.BIG.3.F = [///  ]
  293. @ SILLY.BIG.4.F = [/    ]
  294. @ SILLY.BIG.5.F = [/    ]
  295.  
  296. @ SILLY.BIG.1.G = [/////]
  297. @ SILLY.BIG.2.G = [/    ]
  298. @ SILLY.BIG.3.G = [/  //]
  299. @ SILLY.BIG.4.G = [/   /]
  300. @ SILLY.BIG.5.G = [/////]
  301.  
  302. @ SILLY.BIG.1.H = [/   /]
  303. @ SILLY.BIG.2.H = [/   /]
  304. @ SILLY.BIG.3.H = [/////]
  305. @ SILLY.BIG.4.H = [/   /]
  306. @ SILLY.BIG.5.H = [/   /]
  307.  
  308. @ SILLY.BIG.1.I = [/////]
  309. @ SILLY.BIG.2.I = [  /  ]
  310. @ SILLY.BIG.3.I = [  /  ]
  311. @ SILLY.BIG.4.I = [  /  ]
  312. @ SILLY.BIG.5.I = [/////]
  313.  
  314. @ SILLY.BIG.1.J = [    /]
  315. @ SILLY.BIG.2.J = [    /]
  316. @ SILLY.BIG.3.J = [    /]
  317. @ SILLY.BIG.4.J = [/   /]
  318. @ SILLY.BIG.5.J = [/////]
  319.  
  320. @ SILLY.BIG.1.K = [/   /]
  321. @ SILLY.BIG.2.K = [/  / ]
  322. @ SILLY.BIG.3.K = [///  ]
  323. @ SILLY.BIG.4.K = [/  / ]
  324. @ SILLY.BIG.5.K = [/   /]
  325.  
  326. @ SILLY.BIG.1.L = [/    ]
  327. @ SILLY.BIG.2.L = [/    ]
  328. @ SILLY.BIG.3.L = [/    ]
  329. @ SILLY.BIG.4.L = [/    ]
  330. @ SILLY.BIG.5.L = [/////]
  331.  
  332. @ SILLY.BIG.1.M = [ /// ]
  333. @ SILLY.BIG.2.M = [/ / /]
  334. @ SILLY.BIG.3.M = [/ / /]
  335. @ SILLY.BIG.4.M = [/   /]
  336. @ SILLY.BIG.5.M = [/   /]
  337.  
  338. @ SILLY.BIG.1.N = [/   /]
  339. @ SILLY.BIG.2.N = [//  /]
  340. @ SILLY.BIG.3.N = [/ / /]
  341. @ SILLY.BIG.4.N = [/  //]
  342. @ SILLY.BIG.5.N = [/   /]
  343.  
  344. @ SILLY.BIG.1.O = [/////]
  345. @ SILLY.BIG.2.O = [/   /]
  346. @ SILLY.BIG.3.O = [/   /]
  347. @ SILLY.BIG.4.O = [/   /]
  348. @ SILLY.BIG.5.O = [/////]
  349.  
  350. @ SILLY.BIG.1.P = [/////]
  351. @ SILLY.BIG.2.P = [/   /]
  352. @ SILLY.BIG.3.P = [/////]
  353. @ SILLY.BIG.4.P = [/    ]
  354. @ SILLY.BIG.5.P = [/    ]
  355.  
  356. @ SILLY.BIG.1.Q = [/////]
  357. @ SILLY.BIG.2.Q = [/   /]
  358. @ SILLY.BIG.3.Q = [/   /]
  359. @ SILLY.BIG.4.Q = [/  //]
  360. @ SILLY.BIG.5.Q = [/////]
  361.  
  362. @ SILLY.BIG.1.R = [/////]
  363. @ SILLY.BIG.2.R = [/   /]
  364. @ SILLY.BIG.3.R = [/////]
  365. @ SILLY.BIG.4.R = [///  ]
  366. @ SILLY.BIG.5.R = [/  //]
  367.  
  368. @ SILLY.BIG.1.S = [/////]
  369. @ SILLY.BIG.2.S = [/    ]
  370. @ SILLY.BIG.3.S = [/////]
  371. @ SILLY.BIG.4.S = [    /]
  372. @ SILLY.BIG.5.S = [/////]
  373.  
  374. @ SILLY.BIG.1.T = [/////]
  375. @ SILLY.BIG.2.T = [  /  ]
  376. @ SILLY.BIG.3.T = [  /  ]
  377. @ SILLY.BIG.4.T = [  /  ]
  378. @ SILLY.BIG.5.T = [  /  ]
  379.  
  380. @ SILLY.BIG.1.U = [/   /]
  381. @ SILLY.BIG.2.U = [/   /]
  382. @ SILLY.BIG.3.U = [/   /]
  383. @ SILLY.BIG.4.U = [/   /]
  384. @ SILLY.BIG.5.U = [/////]
  385.  
  386. @ SILLY.BIG.1.V = [/   /]
  387. @ SILLY.BIG.2.V = [/   /]
  388. @ SILLY.BIG.3.V = [ / / ]
  389. @ SILLY.BIG.4.V = [ / / ]
  390. @ SILLY.BIG.5.V = [  /  ]
  391.  
  392. @ SILLY.BIG.1.W = [/   /]
  393. @ SILLY.BIG.2.W = [/   /]
  394. @ SILLY.BIG.3.W = [/ / /]
  395. @ SILLY.BIG.4.W = [/ / /]
  396. @ SILLY.BIG.5.W = [ / / ]
  397.  
  398. @ SILLY.BIG.1.X = [/   /]
  399. @ SILLY.BIG.2.X = [ / / ]
  400. @ SILLY.BIG.3.X = [  /  ]
  401. @ SILLY.BIG.4.X = [ / / ]
  402. @ SILLY.BIG.5.X = [/   /]
  403.  
  404. @ SILLY.BIG.1.Y = [/   /]
  405. @ SILLY.BIG.2.Y = [ / / ]
  406. @ SILLY.BIG.3.Y = [  /  ]
  407. @ SILLY.BIG.4.Y = [  /  ]
  408. @ SILLY.BIG.5.Y = [  /  ]
  409.  
  410. @ SILLY.BIG.1.Z = [/////]
  411. @ SILLY.BIG.2.Z = [   / ]
  412. @ SILLY.BIG.3.Z = [  /  ]
  413. @ SILLY.BIG.4.Z = [ /   ]
  414. @ SILLY.BIG.5.Z = [/////]
  415.  
  416. @ SILLY.BIG.1.0 = [ /// ]
  417. @ SILLY.BIG.2.0 = [/   /]
  418. @ SILLY.BIG.3.0 = [/   /]
  419. @ SILLY.BIG.4.0 = [/   /]
  420. @ SILLY.BIG.5.0 = [ /// ]
  421.  
  422. @ SILLY.BIG.1.1 = [  /  ]
  423. @ SILLY.BIG.2.1 = [ //  ]
  424. @ SILLY.BIG.3.1 = [  /  ]
  425. @ SILLY.BIG.4.1 = [  /  ]
  426. @ SILLY.BIG.5.1 = [/////]
  427.  
  428. @ SILLY.BIG.1.2 = [/////]
  429. @ SILLY.BIG.2.2 = [/  / ]
  430. @ SILLY.BIG.3.2 = [  /  ]
  431. @ SILLY.BIG.4.2 = [ /   ]
  432. @ SILLY.BIG.5.2 = [/////]
  433.  
  434. @ SILLY.BIG.1.3 = [/////]
  435. @ SILLY.BIG.2.3 = [    /]
  436. @ SILLY.BIG.3.3 = [  ///]
  437. @ SILLY.BIG.4.3 = [    /]
  438. @ SILLY.BIG.5.3 = [/////]
  439.  
  440. @ SILLY.BIG.1.4 = [/   /]
  441. @ SILLY.BIG.2.4 = [/   /]
  442. @ SILLY.BIG.3.4 = [/////]
  443. @ SILLY.BIG.4.4 = [    /]
  444. @ SILLY.BIG.5.4 = [    /]
  445.  
  446. @ SILLY.BIG.1.5 = [/////]
  447. @ SILLY.BIG.2.5 = [/    ]
  448. @ SILLY.BIG.3.5 = [/////]
  449. @ SILLY.BIG.4.5 = [    /]
  450. @ SILLY.BIG.5.5 = [/////]
  451.  
  452. @ SILLY.BIG.1.6 = [/////]
  453. @ SILLY.BIG.2.6 = [/    ]
  454. @ SILLY.BIG.3.6 = [/////]
  455. @ SILLY.BIG.4.6 = [/   /]
  456. @ SILLY.BIG.5.6 = [/////]
  457.  
  458. @ SILLY.BIG.1.7 = [/////]
  459. @ SILLY.BIG.2.7 = [    /]
  460. @ SILLY.BIG.3.7 = [   / ]
  461. @ SILLY.BIG.4.7 = [  /  ]
  462. @ SILLY.BIG.5.7 = [ /   ]
  463.  
  464. @ SILLY.BIG.1.8 = [/////]
  465. @ SILLY.BIG.2.8 = [/   /]
  466. @ SILLY.BIG.3.8 = [/////]
  467. @ SILLY.BIG.4.8 = [/   /]
  468. @ SILLY.BIG.5.8 = [/////]
  469.  
  470. @ SILLY.BIG.1.9 = [/////]
  471. @ SILLY.BIG.2.9 = [/   /]
  472. @ SILLY.BIG.3.9 = [/////]
  473. @ SILLY.BIG.4.9 = [    /]
  474. @ SILLY.BIG.5.9 = [/////]
  475.  
  476. @ SILLY.BIG.1.PND = [ / / ]
  477. @ SILLY.BIG.2.PND = [/////]
  478. @ SILLY.BIG.3.PND = [ / / ]
  479. @ SILLY.BIG.4.PND = [/////]
  480. @ SILLY.BIG.5.PND = [ / / ]
  481.  
  482. @ SILLY.BIG.1.EXC = [  /  ]
  483. @ SILLY.BIG.2.EXC = [  /  ]
  484. @ SILLY.BIG.3.EXC = [  /  ]
  485. @ SILLY.BIG.4.EXC = [     ]
  486. @ SILLY.BIG.5.EXC = [  /  ]
  487.  
  488. @ SILLY.BIG.1.QUE = [/////]
  489. @ SILLY.BIG.2.QUE = [    /]
  490. @ SILLY.BIG.3.QUE = [  // ]
  491. @ SILLY.BIG.4.QUE = [     ]
  492. @ SILLY.BIG.5.QUE = [  /  ]
  493.  
  494. @ SILLY.BIG.1.PNT = [     ]
  495. @ SILLY.BIG.2.PNT = [     ]
  496. @ SILLY.BIG.3.PNT = [     ]
  497. @ SILLY.BIG.4.PNT = [     ]
  498. @ SILLY.BIG.5.PNT = [  /  ]
  499.  
  500. @ SILLY.BIG.1.SPC = [     ]
  501. @ SILLY.BIG.2.SPC = [     ]
  502. @ SILLY.BIG.3.SPC = [     ]
  503. @ SILLY.BIG.4.SPC = [     ]
  504. @ SILLY.BIG.5.SPC = [     ]
  505.  
  506. alias bigwrite {
  507.     if ([$1])
  508.     {
  509.         if (rindex($right(1 $1-) $1-) > 9) {/echo *** Too many characters (max 10)}
  510.         {
  511.             @ BPTR = 0
  512.             @ BLEN = rindex($right(1 $1-) $1-)
  513.             while (BPTR <= BLEN)
  514.             {
  515.                 @ BCHR = mid($BPTR 1 $1-)
  516.                 if (BCHR == [#]) {@ BCHR = [PND]}
  517.                 if (BCHR == [.]) {@ BCHR = [PNT]}
  518.                 if (BCHR == [!]) {@ BCHR = [EXC]}
  519.                 if (BCHR == [?]) {@ BCHR = [QUE]}
  520.                 if (BCHR == [ ]) {@ BCHR = [SPC]}
  521.                 @ BIG.1 = BIG.1##[ $SILLY.BIG.1[$BCHR]]
  522.                 @ BIG.2 = BIG.2##[ $SILLY.BIG.2[$BCHR]]
  523.                 @ BIG.3 = BIG.3##[ $SILLY.BIG.3[$BCHR]]
  524.                 @ BIG.4 = BIG.4##[ $SILLY.BIG.4[$BCHR]]
  525.                 @ BIG.5 = BIG.5##[ $SILLY.BIG.5[$BCHR]]
  526.                 @ BPTR = BPTR + 1
  527.             }
  528.             @ BIG.1 = [    $BIG.1]
  529.             @ BIG.2 = [   $BIG.2]
  530.             @ BIG.3 = [  $BIG.3]
  531.             @ BIG.4 = [ $BIG.4]
  532.             ^assign -BCHR
  533.             foreach BIG AA {
  534.                 sendto $0 $BIG[$AA]
  535.                 ^assign -BIG[$AA]
  536.             }
  537.             ^assign -BPTR
  538.             ^assign -BLEN
  539.         }
  540.     }
  541.     {
  542.         echo *** /bigwrite <nick/channel> <string to write> (max 10 chars)
  543.         echo *** Allowed characters: abcdefghijklmnopqrstuvwxyz0123456789#!?.
  544.     }
  545. }
  546. alias bigsay {/bigwrite $T $*}
  547.  
  548. # ----------------------------------------------------------------------------
  549. # "Eleet" writer
  550. # ----------------------------------------------------------------------------
  551.  
  552. @ SILLY.SANE  = [abcdefghijklmnopqrstuvwxyz]
  553. ASSIGN SILLY.LEET.0.0 a
  554. ASSIGN SILLY.LEET.0.1 A
  555. ASSIGN SILLY.LEET.0.2 @
  556. ASSIGN SILLY.LEET.0.3 a
  557. ASSIGN SILLY.LEET.1.0 b
  558. ASSIGN SILLY.LEET.1.1 B
  559. ASSIGN SILLY.LEET.1.2 |3
  560. ASSIGN SILLY.LEET.1.3 b
  561. ASSIGN SILLY.LEET.2.0 c
  562. ASSIGN SILLY.LEET.2.1 C
  563. ASSIGN SILLY.LEET.2.2 (
  564. ASSIGN SILLY.LEET.2.3 [
  565. ASSIGN SILLY.LEET.3.0 d
  566. ASSIGN SILLY.LEET.3.1 D
  567. ASSIGN SILLY.LEET.3.2 c|
  568. ASSIGN SILLY.LEET.3.3 |)
  569. ASSIGN SILLY.LEET.4.0 e
  570. ASSIGN SILLY.LEET.4.1 E
  571. ASSIGN SILLY.LEET.4.2 3
  572. ASSIGN SILLY.LEET.4.3 [-
  573. ASSIGN SILLY.LEET.5.0 f
  574. ASSIGN SILLY.LEET.5.1 F
  575. ASSIGN SILLY.LEET.5.2 /=
  576. ASSIGN SILLY.LEET.5.3 ph
  577. ASSIGN SILLY.LEET.6.0 g
  578. ASSIGN SILLY.LEET.6.1 G
  579. ASSIGN SILLY.LEET.6.2 9
  580. ASSIGN SILLY.LEET.6.3 g
  581. ASSIGN SILLY.LEET.7.0 h
  582. ASSIGN SILLY.LEET.7.1 H
  583. ASSIGN SILLY.LEET.7.2 /-/
  584. ASSIGN SILLY.LEET.7.3 |-|
  585. ASSIGN SILLY.LEET.8.0 i
  586. ASSIGN SILLY.LEET.8.1 I
  587. ASSIGN SILLY.LEET.8.2 1
  588. ASSIGN SILLY.LEET.8.3 !
  589. ASSIGN SILLY.LEET.9.0 j
  590. ASSIGN SILLY.LEET.9.1 J
  591. ASSIGN SILLY.LEET.9.2 j
  592. ASSIGN SILLY.LEET.9.3 j
  593. ASSIGN SILLY.LEET.10.0 k
  594. ASSIGN SILLY.LEET.10.1 K
  595. ASSIGN SILLY.LEET.10.2 |<
  596. ASSIGN SILLY.LEET.10.3 /<
  597. ASSIGN SILLY.LEET.11.0 l
  598. ASSIGN SILLY.LEET.11.1 L
  599. ASSIGN SILLY.LEET.11.2 |_
  600. ASSIGN SILLY.LEET.11.3 /_
  601. ASSIGN SILLY.LEET.12.0 m
  602. ASSIGN SILLY.LEET.12.1 M
  603. ASSIGN SILLY.LEET.12.2 |\/|
  604. ASSIGN SILLY.LEET.12.3 M
  605. ASSIGN SILLY.LEET.13.0 n
  606. ASSIGN SILLY.LEET.13.1 N
  607. ASSIGN SILLY.LEET.13.2 |\|
  608. ASSIGN SILLY.LEET.13.3 N
  609. ASSIGN SILLY.LEET.14.0 o
  610. ASSIGN SILLY.LEET.14.1 O
  611. ASSIGN SILLY.LEET.14.2 0
  612. ASSIGN SILLY.LEET.14.3 ()
  613. ASSIGN SILLY.LEET.15.0 p
  614. ASSIGN SILLY.LEET.15.1 P
  615. ASSIGN SILLY.LEET.15.2 |^
  616. ASSIGN SILLY.LEET.15.3 p
  617. ASSIGN SILLY.LEET.16.0 q
  618. ASSIGN SILLY.LEET.16.1 Q
  619. ASSIGN SILLY.LEET.16.2 Q
  620. ASSIGN SILLY.LEET.16.3 q
  621. ASSIGN SILLY.LEET.17.0 r
  622. ASSIGN SILLY.LEET.17.1 R
  623. ASSIGN SILLY.LEET.17.2 />
  624. ASSIGN SILLY.LEET.17.3 r
  625. ASSIGN SILLY.LEET.18.0 s
  626. ASSIGN SILLY.LEET.18.1 S
  627. ASSIGN SILLY.LEET.18.2 5
  628. ASSIGN SILLY.LEET.18.3 $
  629. ASSIGN SILLY.LEET.19.0 t
  630. ASSIGN SILLY.LEET.19.1 T
  631. ASSIGN SILLY.LEET.19.2 +
  632. ASSIGN SILLY.LEET.19.3 ~|~
  633. ASSIGN SILLY.LEET.20.0 u
  634. ASSIGN SILLY.LEET.20.1 U
  635. ASSIGN SILLY.LEET.20.2 (_)
  636. ASSIGN SILLY.LEET.20.3 |_|
  637. ASSIGN SILLY.LEET.21.0 v
  638. ASSIGN SILLY.LEET.21.1 V
  639. ASSIGN SILLY.LEET.21.2 \/
  640. ASSIGN SILLY.LEET.21.3 v
  641. ASSIGN SILLY.LEET.22.0 w
  642. ASSIGN SILLY.LEET.22.1 W
  643. ASSIGN SILLY.LEET.22.2 |/\|
  644. ASSIGN SILLY.LEET.22.3 W
  645. ASSIGN SILLY.LEET.23.0 x
  646. ASSIGN SILLY.LEET.23.1 X
  647. ASSIGN SILLY.LEET.23.2 )(
  648. ASSIGN SILLY.LEET.23.3 ><
  649. ASSIGN SILLY.LEET.24.0 y
  650. ASSIGN SILLY.LEET.24.1 Y
  651. ASSIGN SILLY.LEET.24.2 `/
  652. ASSIGN SILLY.LEET.24.3 y
  653. ASSIGN SILLY.LEET.25.0 z
  654. ASSIGN SILLY.LEET.25.1 Z
  655. ASSIGN SILLY.LEET.25.2 2
  656. ASSIGN SILLY.LEET.25.3 ~/_
  657.  
  658. alias silly.eleetf {
  659.     @ SANE.STR = [$*]
  660.     @ SANE.LEN = @SANE.STR
  661.     @ LEET.STR = []
  662.     @ LEET.LEN = 0
  663.     while (LEET.LEN < SANE.LEN)
  664.     {
  665.         @ LEET.IND = index($mid($LEET.LEN 1 $SANE.STR) $SILLY.SANE)
  666.         if (LEET.IND > -1)
  667.         {
  668.             @ LEET.STR = LEET.STR##SILLY.LEET[$LEET.IND][$rand(4)]
  669.         }
  670.         {
  671.             @ LEET.STR = LEET.STR##mid($LEET.LEN 1 $SANE.STR)
  672.         }
  673.         @ LEET.LEN = LEET.LEN + 1
  674.     }
  675.     @ FUNCTION_RETURN = LEET.STR
  676.     ^assign -LEET.LEN
  677.     ^assign -LEET.STR
  678.     ^assign -LEET.IND
  679.     ^assign -SANE.STR
  680.     ^assign -SANE.LEN
  681. }
  682.  
  683. alias kradwrite {/sendto $0 $silly.eleetf($1-)}
  684. alias kradsay {/say $silly.eleetf($0-)}
  685.  
  686. # ----------------------------------------------------------------------------
  687. # Fake invites, fake massdeop
  688. # ----------------------------------------------------------------------------
  689.  
  690. alias fakeinvite {
  691.     if ([$1])
  692.     {
  693.         ^assign INVITESTR $strip(# $1)
  694.         ^assign INVITESTR \#${INVITESTR}
  695.         quote INVITE $0 $INVITESTR
  696.         ^assign -INVITESTR
  697.         echo *** Fake invited $0 to channel $1
  698.     } {/echo *** /fakeinvite <nick> <channel>}
  699. }
  700.  
  701. # jokemassdeop [<deopnick>]
  702. alias jokemassdeop {
  703.     if ([$0]) {@ DOPNICK = [$0]} {@ DOPNICK = [$N]}
  704.     ^on ^who * {^if (([$1] != DOPNICK)&&(match(*@* $2))) {@ FDOPZ = FDOPZ##[$1 ]}}
  705.     //^who *
  706.     wait -CMD if (1) {
  707.         silly.dofakedop $FDOPZ
  708.         ^assign -DOPNICK
  709.         ^assign -FDOPZ
  710.         ^on who -
  711.     }
  712. }
  713. alias silly.dofakedop {
  714.     if ([$2])
  715.     {
  716.         me change "-ooo $0 $1 $2" on channel $C by $DOPNICK
  717.         if ([$3]) {/silly.dofakedop $3-}
  718.     }
  719.     {
  720.         if ([$1]) {/me change "-oo $0 $1" on channel $C by $DOPNICK}
  721.         {/me change "-o $0" on channel $C by $DOPNICK}
  722.     }
  723. }
  724.  
  725. # ----------------------------------------------------------------------------
  726. # -+ TEXT +- encryption
  727. # ----------------------------------------------------------------------------
  728.  
  729. # We add one setting to /pp : adecode on/off
  730. @ PP.SETCHECKS.SILLY = [^silly.sets]
  731.  
  732. # Decoding on/off
  733. EVAL ^if ([X$PP.SET.ADECODE] != [X]) {@ PP.SET.ADECODE = 1}
  734.  
  735. alias silly.sets {
  736.     if ([$0] == [ADECODE])
  737.     {
  738.         if (match($1 ON OFF)) {^if ([$1] == [ON]) {@ PP.SET.ADECODE = 1} {@ PP.SET.ADECODE = 0}}
  739.         if (PP.SET.ADECODE) {/echo *** Encryption decoding is now ON} {/echo *** Encryption decoding is now OFF}
  740.         @ VU = 1
  741.     }
  742. }
  743.  
  744. on -public "% % * ?? -+ TEXT +-" {
  745.     if (PP.SET.ADECODE)
  746.     {
  747.         if ([$1] == C)
  748.         {
  749.             ^timer 1 /echo [DECRYPT] <$0> $strip( $decode($left($index(" $2-) $2-)))
  750.         }
  751.         {
  752.             ^timer 1 /echo [DECRYPT] <$0:$1> $strip( $decode($left($index(" $2-) $2-)))
  753.         }
  754.     }
  755. }
  756. on #-msg 2 "% * ?? -+ TEXT +-" {^if (PP.SET.ADECODE) {^echo [DECRYPT] *$0* $strip( $decode($left($index(" $1-) $1-)))}}
  757. alias txt {/sendto $C $encode($0-)" $randcrap(2) -+ TEXT +-}
  758. alias ptxt {/sendto $0 $encode($1-)" $randcrap(2) -+ TEXT +-}
  759.  
  760. # ----------------------------------------------------------------------------
  761. # Other junk
  762. # ----------------------------------------------------------------------------
  763.  
  764. alias megaop {
  765.     //mode $C +o $0
  766.     //mode $C +oo $0 $0
  767.     //mode $C +ooo $0 $0 $0
  768.     //mode $C +oo $0 $0
  769.     //mode $C +o $0
  770. }
  771. alias gigaop {
  772.     //mode $C +o $0
  773.     //mode $C +oo $0 $0
  774.     //mode $C +ooo $0 $0 $0
  775.     //mode $C +oooo $0 $0 $0 $0
  776.     //mode $C +ooo $0 $0 $0
  777.     //mode $C +oo $0 $0
  778.     //mode $C +o $0
  779. }
  780.  
  781. alias w00p {
  782.     me *** PR3P4R1NG W00P F0R $0 ***
  783.     sleep 1
  784.     me *** T4RG3TT1NG $0 ***
  785.     sleep 1
  786.     sendto $C w00p!
  787.     me *** SUCC3SZFUL W00P ***
  788. }
  789.  
  790. alias rkick {
  791.     if (C)
  792.     {
  793.         ^on ^who * {^if ([$1] != N) {@ NIKZ = NIKZ##[ $1]}}
  794.         //^who *
  795.         wait -CMD if (1) {
  796.             ^on who -
  797.             if (NIKZ)
  798.             {
  799.                 //kick $C $word($rand($#NIKZ) $NIKZ) [Random Kick]
  800.             } {/echo *** Nobody to choose from!}
  801.             ^assign -NIKZ
  802.         }
  803.     } {/echo *** You aren't on any channels}
  804. }
  805.  
  806. # ----------------------------------------------------------------------------
  807.  
  808. EVAL ^if (!PP.SET.NOSTARTUP) {/echo -- PurePak lame junk module loaded}
  809.